home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epimap1.zip / FILES04.EXE / HEPRATES.PGM < prev    next >
Text File  |  1994-06-08  |  1KB  |  48 lines
  1. READ SURVDB
  2. SELECT DISEASECOD=10
  3. *Select Hepatitis B records
  4. ERASE TEMP.REC
  5. *Erase previous file
  6. ROUTE TEMP.REC
  7. OUTPUT TABLES COUNTY
  8. *Produce a file with fields COUNT and COUNTY
  9. ROUTE SCREEN
  10. *Close the file
  11. ECHO TEMP.REC contains one count per county.
  12. ?Press <Enter> to continue?
  13. CLS
  14. ECHO   We could use this file to map the counts
  15. ECHO   but we want rates, so we READ and RELATE it to the
  16. ECHO   POP.REC file containing county populations and then
  17. ECHO   calculate the rates.
  18. ?Press <Enter> to continue?
  19. READ TEMP.REC
  20. RELATE COUNTY POP.REC
  21. *Relate the population file, using county name as the link
  22. DEFINE RATE  ###
  23. *Define a new variable
  24. RATE=100000 * (COUNT/POPULATION)
  25. *Calculate the rate
  26. ERASE HEPRATES.REC
  27. *Erase HEPRATES.REC in case it exists
  28. ROUTE HEPRATES.REC
  29. WRITE RECFILE
  30. *Write the new file, including the rates, as HEPRATES.REC
  31. ROUTE SCREEN
  32. CLS
  33. ECHO Just for clarity we will READ and LIST HEPRATES.REC
  34. ECHO so that you can see what Epi Map will use as data.
  35. ?Press <Enter> to continue?
  36. READ HEPRATES.REC
  37. LIST
  38. ECHO Now we will leave ANALYSIS and run EPIMAP HEPRATES.MAP
  39. ECHO It contains instructions to load the boundary file
  40. ECHO USCA.BND and the data file HEPRATES.REC and to
  41. ECHO display these together with a customized title
  42. ECHO and legend.
  43. ?Press <Enter> to continue?
  44. *Close the file
  45. QUIT
  46. *Leave ANALYSIS
  47. *Now run EPIMAP HEPRATES.MAP to see the results
  48.